home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / music / musicato.zip / SETUP.MS_ / SETUP.MS
Text File  |  1993-01-04  |  33KB  |  992 lines
  1. ' ------------- Copyright (c) Jo Brodtkorb, Musicator 1992-93 ---------------
  2. ' ***************************************************************************
  3. '
  4. ' FILE NAME        : c:\mgw-inst\setup.mst
  5. ' CREATED          : 92.12.15
  6. ' LAST UPDATED     : 93.01.04
  7. ' PURPOSE          : Setupprogram for Musicator GS for Windows
  8. '
  9. '
  10. ' INIT  DATE         LOG (Newest first)
  11. ' ---------------------------------------------------------------------------
  12. ' Sven  93.01.04     Support for a demo verion of Musicator GS 
  13. ' Sven  92.12.15     Initial version created
  14. ' **************************************************************************
  15.  
  16. ' **************************************************************************
  17. ' 
  18. ' Denne seksjonen skal redigeres for de forskjellige typer installasjon 
  19. '
  20. ' Neste linje kommenteres ut med '' hvis installasjonen ikke er en demoversjon
  21. ' Når linjen ikke er kommentert ut ser den slik ut: '$DEFINE DEMO
  22. '$DEFINE DEMO
  23. ' **************************************************************************
  24.  
  25. ' Av '$DEFINE DEBUG  ''Define for script development/debugging
  26.  
  27. '-- Includes ---------------------------------------------------------------
  28. '$INCLUDE 'setupapi.inc'
  29. '$INCLUDE 'msdetect.inc'
  30.  
  31. '-- Constants --------------------------------------------------------------
  32. CONST szBadDisks$ = "Setup disks may be corrupted.  Please contact your Dealer."
  33. CONST szKB$       = " K"
  34. CONST szMB$       = " MB"
  35. '$IFDEF DEMO
  36.     CONST szTitle$      = "Musicator GS Demo Setup"
  37.     CONST szGroupName$  = "Musicator GS Demo"
  38.     CONST szProgramName$= "Musicator GS for Windows Demo"
  39.     CONST szDefDir$   = "C:\MGW-DEMO"
  40. '$ELSE
  41.     CONST szTitle$      = "Musicator GS Setup"
  42.     CONST szGroupName$  = "Musicator GS"
  43.     CONST szProgramName$= "Musicator GS for Windows"
  44.     CONST szDefDir$   = "C:\MGW"
  45. '$ENDIF
  46. CONST szInfName$  = "SETUP.INF"
  47. CONST fTRUE%      = 1
  48. CONST fFALSE%     = 0
  49. CONST szON$       = "ON"
  50. CONST szOFF$      = "OFF"
  51. CONST MinTempSpace%     = 3072
  52. CONST EWRestartWin&     = 42
  53. CONST EWRebootSystem&   = 43
  54. CONST MaxNoOfDisks%     = 26
  55.  
  56. ''Dialog ID's (must match those in DIALOGS.H)
  57. CONST WELCOME       = 1100
  58. CONST WELCOMEDEMO   = 1101    ' Demo versjon of Musicator GS
  59. CONST CUSTINST      = 1200
  60. CONST CUSTINSTDEMO  = 1201
  61. CONST ASKQUIT       = 1300
  62. CONST ASKQUITDEMO   = 1301
  63. CONST ASKATM        = 1400
  64. CONST ASKATMDEMO    = 1401
  65. CONST GETPATH       = 1500
  66. CONST GETPATHDEMO   = 1501
  67. CONST BADDIR        = 1600
  68. CONST BADDIRDEMO    = 1601
  69. CONST CREATEPATH    = 1700
  70. CONST CREATEPATHDEMO= 1701
  71. CONST WAITSIZE      = 1800
  72. CONST WAITSIZEDEMO  = 1801
  73. CONST EXITSUCCESS   = 1900
  74. CONST EXITSUCCESSDEMO = 1901
  75. CONST EXITQUIT      = 2000
  76. CONST EXITQUITDEMO  = 2001
  77. CONST HELPINSTALL   = 2100
  78. CONST HELPINSTALLDEMO = 2101
  79. CONST HELPPATH      = 2200
  80. CONST HELPPATHDEMO  = 2201
  81. CONST TOOBIG        = 2300
  82. CONST TOOBIGDEMO    = 2301
  83. CONST EXITFAILURE   = 2400
  84. CONST EXITFAILUREDEMO = 2401
  85. CONST RESTARTWIN    = 2500
  86. CONST RESTARTWINDEMO= 2501
  87. ' CONST BWCCEXISTS  = 2600
  88. ' CONST BWCCNEW     = 2700
  89. ' CONST BWCCOLD     = 2800
  90. ' CONST BWCCHELP    = 2900
  91. CONST CDCONFIRMINFO = 3000
  92. CONST CDGETNAMEORG  = 3100
  93. CONST CDALREADYUSED = 3200
  94. CONST CDBADFILE     = 3300
  95. CONST CDBADNAMEORG  = 3400
  96.  
  97. ''Bitmap ID (must match those in DIALOGS.RC)
  98. '$IFDEF DEMO
  99.    CONST LOGO = 2
  100. '$ELSE
  101.    CONST LOGO = 1
  102. '$ENDIF
  103.  
  104. '-- Globals ----------------------------------------------------------------
  105. GLOBAL  szDir$              ''Destination directory
  106. GLOBAL  szDrive$            ''Destination drive
  107. GLOBAL  szWinDrive$         ''Windows drive
  108. GLOBAL  cbDrive&            ''Space available on destination drive
  109. GLOBAL  cbWinDrive&         ''Space available on Windows drive
  110. GLOBAL  szSrcDir$           ''Source directory
  111. GLOBAL  szWinDir$           ''Windows directory
  112. GLOBAL  fATMFiles%          ''Install ATM or TrueType
  113. GLOBAL  cbMGWFiles&         ''KBytes required for basic GWS
  114. GLOBAL  cbWinFiles&         ''KBytes required for files in Windows directory
  115. GLOBAL  CUIDLL$             ''Dialog/Images DLL
  116. GLOBAL  HELPPROC$           ''Help dialog procedure
  117. GLOBAL  DriveList$          ''List of available drives
  118. GLOBAL  szCDOrganization$   ''Organisation that owns the produkt
  119. GLOBAL  szCDName$           ''Person that owns the produkt
  120.  
  121.  
  122. '-- Declaratin of DLL functions---------------------------------------------
  123. ' DECLARE FUNCTION SetupCryptName LIB "mscuistf.dll" (szInString$, szOutString$) AS INTEGER
  124. DECLARE FUNCTION ExitWindows LIB "user.exe" (dwReturnCode&, iReserved%) AS INTEGER
  125. ' DECLARE FUNCTION ExitWindowsExec LIB "user.exe" (lpszExe$, lpszParams$) AS INTEGER
  126.  
  127. '-- Prototypes -------------------------------------------------------------
  128. DECLARE SUB BadPath
  129. DECLARE SUB CalcPathSpace
  130. DECLARE SUB CheckTempSpace
  131. DECLARE SUB CheckATM
  132. DECLARE FUNCTION CreateInstallPath(szDir$) AS STRING
  133. DECLARE FUNCTION AskForBWCC AS INTEGER
  134. DECLARE SUB DetermineSizes
  135. DECLARE SUB GetDriveList
  136. DECLARE SUB GetInstallPath
  137. DECLARE SUB Install
  138. DECLARE SUB InsufficientSpace
  139. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  140.  
  141.  
  142. '---------------------------------------------------------------------------
  143. ' INIT:  Load globals and read .INF file
  144. '---------------------------------------------------------------------------
  145. INIT:
  146.     SetTitle szTitle$
  147.     CursorSave% = ShowWaitCursor()
  148.     CUIDLL$   = "mscuistf.dll"          ''Custom user interface dll
  149.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  150.  
  151.     SetBitmap CUIDLL$, LOGO
  152.  
  153.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  154.     IF szInf$ = "" THEN
  155.     szInf$ = GetSymbolValue("STF_CWDDIR") + szInfName$
  156.     END IF
  157.     ReadInfFile szInf$
  158.  
  159.     szWinDir$ = GetWindowsDir()
  160.     szWinDrive$ = MID$(szWinDir$, 1, 1)
  161. '$IFDEF DEBUG
  162.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  163.     '' IsDirWriteable does not work propably
  164.     IF IsDriveValid(szWinDrive$) = fFALSE% THEN
  165.     i% = DoMsgBox("Windows drive ('"+szWinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  166.     GOTO QUIT
  167.     END IF
  168. '$ENDIF ''DEBUG
  169.     RestoreCursor CursorSave%
  170.  
  171.  
  172. '---------------------------------------------------------------------------
  173. ' WELCOME:  Display Welcome dialog
  174. '---------------------------------------------------------------------------
  175. WELCOME:
  176. '$IFDEF DEMO
  177. '     sz$ = UIStartDlg(CUIDLL$, WELCOMEDEMO, "FInfoDlgProc", HELPINSTALLDEMO, HELPPROC$)
  178.     sz$ = UIStartDlg(CUIDLL$, WELCOMEDEMO, "FInfoDlgProc", 0, "")
  179. '$ELSE
  180. '     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", HELPINSTALL, HELPPROC$)
  181.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", 0, "")
  182. '$ENDIF
  183.     IF sz$ = "CONTINUE" THEN
  184.     UIPop 1
  185.     ELSE
  186.     GOSUB ASKQUIT
  187.     GOTO WELCOME
  188.     END IF
  189.  
  190. CHECKPROSESSOR:
  191.     IF GetProcessorType() < 3 THEN ' Less than 80386
  192.     i% = DoMsgBox("'" + Ltrim$(Str$(GetProcessorType())) + "' is not a legal machine", szTitle$, MB_TASKMODAL+MB_ICONHAND+MB_OK)
  193.     GOSUB ASKQUIT
  194.     GOTO CHECKDOS
  195.     ENDIF
  196.  
  197. CHECKDOS:
  198. '     IF GetDOSMajorVersion() = 3 THEN
  199. '         IF GetDOSMinorVersion() = 3 THEN
  200. '             GOTO CHECKWINDOWS
  201. '         ENDIF
  202. '     ELSEIF GetDOSMajorVersion() = 4 THEN
  203. '         IF GetDOSMinorVersion() = 1 THEN
  204. '             GOTO CHECKWINDOWS
  205. '         ENDIF
  206. '     ELSEIF GetDOSMajorVersion() > 4 THEN
  207. '         GOTO CHECKWINDOWS
  208. '     ENDIF
  209. '     i% = DoMsgBox(Ltrim$(Str$(GetDOSMajorVersion()))+"."+Ltrim$(Str$(GetDOSMinorVersion()))+ " is not a legal DOS version", szTitle$, MB_TASKMODAL+MB_ICONHAND+MB_OK)
  210. '     GOSUB ASKQUIT
  211. '     GOTO CHECKDOS
  212.  
  213. CHECKWINDOWS:
  214.     IF GetWindowsMajorVersion() < 3 THEN
  215.     i% = DoMsgBox(Ltrim$(Str$(GetWindowsMajorVersion()))+"."+Ltrim$(Str$(GetWindowsMinorVersion()))+ " is not a legal Windows version", szTitle$, MB_TASKMODAL+MB_ICONHAND+MB_OK)
  216.     GOSUB ASKQUIT
  217.     GOTO CHECKWINDOWS
  218.     ELSEIF GetWindowsMajorVersion() = 3 THEN
  219. '         IF GetWindowsMinorVersion() <> 0 THEN
  220.     IF GetWindowsMinorVersion() = 0 THEN
  221. '         ELSEIF GetWindowsMinorVersion() <> 1 THEN
  222.         i% = DoMsgBox(Ltrim$(Str$(GetWindowsMajorVersion()))+"."+Ltrim$(Str$(GetWindowsMinorVersion()))+ " is not a legal Windows version", szTitle$, MB_TASKMODAL+MB_ICONHAND+MB_OK)
  223.     ENDIF
  224.     ELSEIF GetWindowsMajorVersion() > 3 THEN
  225. '             i% = DoMsgBox(Ltrim$(Str$(GetWindowsMajorVersion()))+"."+Ltrim$(Str$(GetWindowsMinorVersion()))+ " is not a legal Windows version", szTitle$, MB_TASKMODAL+MB_ICONHAND+MB_OK)
  226.     ENDIF
  227.  
  228. '$IFDEF DEMO   '' Do not ask for name and organization
  229.     GOTO CUSTINST
  230. '$ENDIF
  231. '---------------------------------------------------------------------------
  232. ' GETOWNER: Get name and organization (the owner of the product)
  233. '---------------------------------------------------------------------------
  234. GETOWNER:
  235.     sz$ = UIStartDlg(CUIDLL$, CDGETNAMEORG, "FNameOrgDlgProc", 0, "")
  236.     IF sz$ = "CONTINUE" THEN
  237.     szCDOrganization$ = GetSymbolValue("OrgOut")
  238.     szCDName$         = GetSymbolValue("NameOut")
  239.     UIPop 1
  240.     ELSEIF sz$ = "EXIT" THEN
  241.     GOSUB ASKQUIT
  242.     GOTO GETOWNER
  243.     ELSE
  244.     UIPop 1
  245.     GOTO GETOWNER
  246.     END IF
  247.  
  248. '---------------------------------------------------------------------------
  249. ' EMPTYOWNER: Check if name and organization are empty
  250. '---------------------------------------------------------------------------
  251. EMPTYOWNER:
  252.     IF (szCDOrganization$ = "") AND (szCDName$ = "") THEN
  253.         sz$ = UIStartDlg(CUIDLL$, CDBADNAMEORG, "FInfoDlgProc", 0, "")
  254.         IF sz$ = "CONTINUE" THEN
  255.             UIPop 1
  256.             GOTO GETOWNER
  257.         ELSE
  258.             GOSUB ASKQUIT
  259.             GOTO EMPTYOWNER
  260.         ENDIF
  261.     ENDIF
  262.  
  263. '---------------------------------------------------------------------------
  264. ' CONFIRMOWNER: Confirm name and organization
  265. '---------------------------------------------------------------------------
  266. CONFIRMOWNER:
  267.     ConfirmTextIn$ = "ConfirmTextIn"
  268.     AddListItem ConfirmTextIn$, szCDOrganization$
  269.     AddListItem ConfirmTextIn$, szCDName$
  270.     sz$ = UIStartDlg(CUIDLL$, CDCONFIRMINFO, "FConfirmDlgProc", 0, "")
  271.     RemoveSymbol ConfirmTextIn$
  272.     IF sz$ = "BACK" THEN
  273.         UIPop 1
  274.         GOTO GETOWNER
  275.     ELSEIF sz$ = "CONTINUE" THEN
  276.         UIPop 1
  277.     ELSE
  278.         GOSUB ASKQUIT
  279.         GOTO CONFIRMOWNER
  280.     ENDIF
  281.  
  282. '---------------------------------------------------------------------------
  283. ' CHECKOWNER: Check name and organization
  284. '---------------------------------------------------------------------------
  285. CHECKOWNER:
  286.     szSrcDir$ = GetSymbolValue("STF_SRCDIR")
  287.     ini$ = MakePath (szSrcDir$, "setup.ini")
  288.     szOldOrg$  = GetIniKeyString (ini$, "Names", "MusicatorGSOrganisation")
  289.     szOldName$ = GetIniKeyString (ini$, "Names", "MusicatorGSName")
  290. '$IFDEF DEBUG
  291.     i% = DoMsgBox("Ny Org = " + szCDOrganization$ + ", Nytt Navn = " + szCDName$, "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  292.     i% = DoMsgBox("Gammel Org = " + szOldOrg$ + ", Gammelt Navn = " + szOldName$, "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  293. '$ENDIF ''DEBUG
  294.     IF (szOldOrg$ = "") AND (szOldName$ = "") THEN
  295.     ELSE
  296.         IF (Ucase$(szCDOrganization$) <> Ucase$(szOldOrg$)) OR (Ucase$(szCDName$) = Ucase$(szOldName$)) THEN
  297.             sz$ = UIStartDlg(CUIDLL$, CDBADFILE, "FInfoDlgProc", 0, "")
  298.             IF sz$ = "CONTINUE" THEN
  299.                 UIPop 1
  300.             ELSE
  301.                 GOSUB ASKQUIT
  302.                 GOTO CHECKOWNER
  303.             ENDIF
  304.         ENDIF
  305.     ENDIF
  306.  
  307. '---------------------------------------------------------------------------
  308. ' CUSTINST:  Get users installation selections
  309. '---------------------------------------------------------------------------
  310. CUSTINST:
  311.     CursorSave% = ShowWaitCursor()
  312. '$IFDEF DEMO
  313.     sz$ = UIStartDlg(CUIDLL$, WAITSIZEDEMO, "FModelessDlgProc", 0, "")
  314. '$ELSE
  315.     sz$ = UIStartDlg(CUIDLL$, WAITSIZE, "FModelessDlgProc", 0, "")
  316. '$ENDIF
  317.     szDir$ = szDefDir$
  318.     DRIVETEXT$   = "DriveStatusText"
  319.     FOR i% = 1 to 7 STEP 1
  320.     AddListItem DRIVETEXT$, ""
  321.     NEXT i%
  322.     GetDriveList
  323.     iMaxDiskNo% = GetListLength (DriveList$)
  324.  
  325.     iFound% = fFALSE%
  326.     FOR iDiskNo% = 1 TO iMaxDiskNo% STEP 1
  327.     szDrive$ = MID$(GetListItem (DriveList$, iDiskNo%), 1, 1)
  328.     szDir$ = szDrive$ + MID$(szDir$, 2)
  329.     DetermineSizes
  330.     CalcPathSpace
  331.     IF szWinDrive$ = szDrive$ THEN
  332.         cbTotal& = cbMGWFiles& + cbWinFiles&
  333.     ELSE
  334.         cbTotal& = cbMGWFiles&
  335.     ENDIF
  336.     IF cbTotal& < cbDrive&  THEN
  337.         iFound% = fTRUE%
  338.         EXIT FOR
  339.     ENDIF
  340.     NEXT iDiskNo%
  341.     IF iFound% = fFALSE% THEN
  342.     szDir$ = szDefDir$
  343.     DetermineSizes
  344.     CalcPathSpace
  345.     ENDIF
  346.     UIPop 1     ''WaitSize
  347.     RestoreCursor CursorSave%
  348. ASKI1:
  349.     IF szWinDrive$ = szDrive$ THEN
  350.     cbTotal&    = cbMGWFiles& + cbWinFiles&
  351.     cbWinTotal& = fFALSE%
  352.     ELSE
  353.     cbTotal&    = cbMGWFiles&
  354.     cbWinTotal& = cbWinFiles&
  355.     ENDIF
  356.  
  357.     ReplaceListItem DRIVETEXT$, 1, szDrive$ + ":"
  358.     ReplaceListItem DRIVETEXT$, 2, Ltrim$(Str$(cbTotal&))+szKB
  359.     ReplaceListItem DRIVETEXT$, 3, Ltrim$(Str$(cbDrive&))+szKB
  360.     ReplaceListItem DRIVETEXT$, 7, szDir$
  361.  
  362.     IF szWinDrive$ = szDrive$ THEN
  363.     ReplaceListItem DRIVETEXT$, 4, ""
  364.     ReplaceListItem DRIVETEXT$, 5, ""
  365.     ReplaceListItem DRIVETEXT$, 6, ""
  366.     ELSE
  367.     ReplaceListItem DRIVETEXT$, 4, szWinDrive$ + ":"
  368.     ReplaceListItem DRIVETEXT$, 5, Ltrim$(Str$(cbWinTotal&))+szKB
  369.     ReplaceListItem DRIVETEXT$, 6, Ltrim$(Str$(cbWinDrive&))+szKB
  370.     ENDIF
  371.  
  372. '$IFDEF DEMO
  373.     sz$ = UIStartDlg(CUIDLL$, CUSTINSTDEMO, "FCustInstDlgProc", HELPINSTALLDEMO, HELPPROC$)
  374. '$ELSE
  375.     sz$ = UIStartDlg(CUIDLL$, CUSTINST, "FCustInstDlgProc", HELPINSTALL, HELPPROC$)
  376. '$ENDIF
  377.  
  378.     IF sz$ = "CONTINUE" THEN
  379.     IF cbTotal& > cbDrive& THEN
  380.         InsufficientSpace
  381.         GOTO ASKI1
  382.     END IF
  383.     CheckTempSpace
  384.     CheckATM
  385.     UIPop 1
  386.     ELSEIF sz$ = "PATH" THEN
  387.     GetInstallPath
  388.     GOTO ASKI1
  389.     ELSEIF sz$ = "REACTIVATE" THEN
  390.     GOTO ASKI1
  391.     ELSEIF sz$ = "EXIT" THEN
  392.     GOSUB ASKQUIT
  393.     GOTO ASKI1
  394.     ELSE
  395.     GOTO ASKI1
  396.     END IF
  397.     UIPop 1
  398.  
  399.     Install
  400.  
  401.  
  402.  
  403. '---------------------------------------------------------------------------
  404. ' QUIT:  Exit setup
  405. '---------------------------------------------------------------------------
  406. QUIT:
  407.     ON ERROR GOTO ERRQUIT
  408.  
  409.     IF ERR = 0 THEN
  410. '$IFDEF DEMO
  411.         dlg% = EXITSUCCESSDEMO
  412. '$ELSE
  413.         dlg% = EXITSUCCESS
  414. '$ENDIF
  415.     ELSEIF ERR = STFQUIT THEN
  416. '$IFDEF DEMO
  417.         dlg% = EXITQUITDEMO
  418. '$ELSE
  419.         dlg% = EXITQUIT
  420. '$ENDIF
  421.     ELSE
  422. '$IFDEF DEMO
  423.         dlg% = EXITFAILUREDEMO
  424. '$ELSE
  425.         dlg% = EXITFAILURE
  426. '$ENDIF
  427.     END IF
  428. QUITL1:
  429.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  430.     IF sz$ = "REACTIVATE" THEN
  431.     GOTO QUITL1                    
  432.     END IF
  433.     UIPop 1
  434.  
  435. AGAIN:
  436.     IF ERR = 0 THEN
  437.     'NB! SVBR
  438.     ini$ = MakePath (szSrcDir$, "setup.ini")
  439. '$IFDEF DEBUG
  440. '     i% = DoMsgBox("F¢r crypt - Ny Org = " + szCDOrganization$ + ", Nytt Navn = " + szCDName$, "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  441. '$ENDIF ''DEBUG
  442. '         i% = SetupCryptName( szCDOrganization$, szCDOrganization$ )
  443. '$IFDEF DEBUG
  444. '     i% = DoMsgBox("Etter crypt - Ny Org = " + szCDOrganization$ + ", Nytt Navn = " + szCDName$, "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  445. '$ENDIF ''DEBUG
  446.     CreateIniKeyValue ini$, "Names", "MusicatorGSOrganisation", szCDOrganization$, cmoAll
  447.     CreateIniKeyValue ini$, "Names", "MusicatorGSName", szCDName$, cmoAll
  448.  
  449.     IF RestartListEmpty() = fFALSE% THEN
  450. '$IFDEF DEMO
  451.         sz$ = UIStartDlg(CUIDLL$, RESTARTWINDEMO, "FInfoDlgProc", 0, "")
  452. '$ELSE
  453.         sz$ = UIStartDlg(CUIDLL$, RESTARTWIN, "FInfoDlgProc", 0, "")
  454. '$ENDIF
  455.         IF sz$ = "CONTINUE" THEN
  456.            UIPop 1
  457.         ELSEIF sz$ = "BACK" THEN
  458.            UIPop 1
  459.            END
  460.         ELSE
  461.            UIPop 1
  462.            GOTO AGAIN
  463.         END IF
  464.         i% = ExitExecRestart
  465.         IF i% = 0 THEN
  466.         GOTO AGAIN
  467.         ENDIF
  468.     ELSE
  469.         i% = ExitExecRestart
  470.         i% = DoMsgBox("Please close down and restart Windows.", szTitle$, MB_TASKMODAL+MB_ICONHAND+MB_OK)
  471.     ENDIF
  472.     ENDIF
  473.   
  474.  
  475.     END
  476.  
  477. ERRQUIT:
  478.     i% = DoMsgBox(szBadDisks$, szTitle$, MB_OK+MB_TASKMODAL+MB_ICONHAND)
  479.     END
  480.  
  481.  
  482. '---------------------------------------------------------------------------
  483. ' ASKQUIT:  Ensure the user really wants to quit
  484. '---------------------------------------------------------------------------
  485. ASKQUIT:
  486. '$IFDEF DEMO
  487.     sz$ = UIStartDlg(CUIDLL$, ASKQUITDEMO, "FQuitDlgProc", 0, "")
  488. '$ELSE
  489.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  490. '$ENDIF
  491.  
  492.     IF sz$ = "EXIT" THEN
  493.     UIPopAll
  494.     ERROR STFQUIT
  495.     ELSEIF sz$ = "REACTIVATE" THEN
  496.     GOTO ASKQUIT
  497.     ELSE
  498.     UIPop 1
  499.     END IF
  500.     RETURN
  501.  
  502.  
  503. '*************************************************************************
  504. '                    S  U  B  R  O  U  T  I  N  E  S
  505. '*************************************************************************
  506.  
  507. '****************************************************************************
  508. ' FUNCTION         : BadPath
  509. '
  510. ' DESCRIPTION      : Display BADDIR dialog
  511. '
  512. ' NOTES            : Arguments none.
  513. '                    Returns none.
  514. '
  515. ' INIT  DATE         LOG (Newest first)
  516. ' ---------------------------------------------------------------------------
  517. ' SVBR  92.12.15     Initial version created
  518. '****************************************************************************/
  519. SUB BadPath STATIC
  520.  
  521. BADDIR1:
  522. '$IFDEF DEMO
  523.     sz$ = UIStartDlg(CUIDLL$, BADDIRDEMO, "FInfo0DlgProc", 0, "")
  524. '$ELSE
  525.     sz$ = UIStartDlg(CUIDLL$, BADDIR, "FInfo0DlgProc", 0, "")
  526. '$ENDIF
  527.     IF sz$ = "REACTIVATE" THEN
  528.     GOTO BADDIR1
  529.     END IF
  530.     UIPop 1
  531. END SUB ''End of BadPath
  532.  
  533. '*************************************************************************
  534. '** Routine: CalcPathSpace
  535. '** Purpose:
  536. '**     Determine free space on path drive.
  537. '** Arguments:
  538. '**     szDir
  539. '** Returns:
  540. '**     cbDrive
  541. '**     szDrive
  542. '*************************************************************************
  543. SUB CalcPathSpace STATIC
  544.     szDrive$ = Mid$(szDir$, 1, 1)
  545.     cbDrive& = GetFreeSpaceForDrive(Mid$(szDrive$,1, 1))
  546.     cbDrive& = (cbDrive& + 1023) / 1024
  547.     cbWinDrive& = GetFreeSpaceForDrive(Mid$(szWinDrive$,1, 1))
  548.     cbWinDrive& = (cbWinDrive& + 1023) / 1024
  549. END SUB
  550.  
  551. '*************************************************************************
  552. '** Routine: CheckTempSpace
  553. '** Purpose:
  554. '**     Check free space on temp-directory.
  555. '** Arguments:
  556. '**     none
  557. '** Returns:
  558. '**     none
  559. '*************************************************************************
  560. SUB CheckTempSpace STATIC
  561.     szTempDir$ = GetEnvVariableValue ("TEMP")
  562.     IF szTempDir$ = "" THEN
  563.     szTempDir$ = GetWindowsDir()
  564.     ENDIF
  565.     cbFree& = GetFreeSpaceForDrive(Mid$(szTempDir$,1, 1))
  566.     cbFree& = (cbFree& + 1023) / 1024
  567.     IF cbFree& < MinTempSpace% THEN
  568.     i% = DoMsgBox("It is recomended to use a TEMP-directory whith at least 3 MB free space. You have only " + Ltrim$(Str$(cbFree&)) + szKB$ + "!", szTitle$, MB_TASKMODAL+MB_ICONHAND+MB_OK)
  569.     ENDIF
  570. END SUB
  571.  
  572. '*************************************************************************
  573. '** Routine: CheckATM
  574. '** Purpose:
  575. '**     Determinate if the user has selected ATM
  576. '** Arguments:
  577. '**     none
  578. '** Returns:
  579. '**     none
  580. '*************************************************************************
  581. SUB CheckATM STATIC
  582.     ini$ = MakePath(GetWindowsDir, "ATM.INI")
  583.  
  584. AGAIN:
  585.     IF DoesFileExist (ini$, femExists) = fTRUE%  THEN
  586. '$IFDEF DEMO
  587.     sz$ = UIStartDlg(CUIDLL$, ASKATMDEMO, "FInfoDlgProc", 0, "")
  588. '$ELSE
  589.     sz$ = UIStartDlg(CUIDLL$, ASKATM, "FInfoDlgProc", 0, "")
  590. '$ENDIF
  591.     IF sz$ = "CONTINUE" THEN
  592.         UIPop 1
  593.         fATMFiles% = fTRUE%
  594.         IF GetIniKeyString (ini$, "Settings", "ATM") = "Off" THEN
  595.         CreateIniKeyValue ini$, "Settings", "ATM", "On", cmoOverwrite
  596.         ENDIF
  597.     ELSEIF sz$ = "BACK" THEN
  598.         UIPop 1
  599.         fATMFiles% = fFALSE%
  600.     ELSE
  601.         UIPop 1
  602.         GOTO AGAIN
  603.     END IF
  604.  
  605.     ELSE
  606.     fATMFiles% = fFALSE%
  607.     ENDIF
  608. END SUB
  609.  
  610. '*************************************************************************
  611. '** Routine: AskForBWCC
  612. '** Purpose:
  613. '**     
  614. '** Arguments:
  615. '**     none
  616. '** Returns:
  617. '**     none
  618. '*************************************************************************
  619. FUNCTION AskForBWCC STATIC AS INTEGER
  620.  
  621.     i% = DoMsgBox("Ikke implementert BWCC.DLL-sjekk", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  622. BWCCAGAIN:
  623.     sz$ = UIStartDlg(CUIDLL$, BWCCEXISTS, "FInfoDlgProc", BWCCHELP, HELPPROC$)
  624.  
  625.     ''Må fjerne BACK
  626.     IF sz$ = "BACK" THEN
  627.     UIPop 1
  628.     AskForBWCC = -1
  629.     ELSEIF sz$ = "CONTINUE" THEN
  630.     UIPop 1
  631.     AskForBWCC = fTRUE%
  632.     ELSEIF sz$ = "EXIT" THEN
  633.     UIPop 1
  634.     AskForBWCC = fFALSE%
  635.     ELSEIF sz$ = "CANCEL" THEN
  636.     UIPop 1
  637.     AskForBWCC = fFALSE%
  638.     ELSEIF sz$ = "REACTIVATE" THEN
  639.     GOTO BWCCAGAIN
  640.     ELSE
  641.     UIPop 1
  642.     END IF
  643.  
  644. END FUNCTION
  645.  
  646. '*************************************************************************
  647. '** Routine: CreateInstallPath
  648. '** Purpose:
  649. '**     Create destination directories
  650. '** Arguments:
  651. '**     none.
  652. '** Returns:
  653. '**     none.
  654. '*************************************************************************
  655. FUNCTION CreateInstallPath (szDir$) STATIC AS STRING
  656.     sz$ = "CONTINUE"
  657.     IF DoesDirExist(szDir$) <> 1 THEN
  658. CREATEPATH1:
  659. '$IFDEF DEMO
  660.     sz$ = UIStartDlg(CUIDLL$, CREATEPATHDEMO, "FInfo0DlgProc", 0, "")
  661. '$ELSE
  662.     sz$ = UIStartDlg(CUIDLL$, CREATEPATH, "FInfo0DlgProc", 0, "")
  663. '$ENDIF
  664.     IF sz$ = "REACTIVATE" THEN
  665.         GOTO CREATEPATH1
  666.     ELSEIF sz$ = "CONTINUE" THEN
  667.         CreateDir szDir$, cmoVital
  668.     END IF
  669.     UIPop 1
  670.     END IF
  671.     CreateInstallPath = sz$
  672. END FUNCTION
  673.  
  674. '*************************************************************************
  675. '** Routine: DetermineSizes
  676. '** Purpose:
  677. '**     Determine space required for each option.
  678. '** Arguments:
  679. '**     none.
  680. '** Returns:
  681. '**     cbMGWFiles
  682. '**     cbWinFiles
  683. '*************************************************************************
  684. SUB DetermineSizes STATIC
  685.     szSrcDir$ = GetSymbolValue("STF_SRCDIR")
  686.  
  687.     ClearCopyList
  688.     AddSectionFilesToCopyList "BasisFiles", szSrcDir$, szDir$
  689.     AddSectionFilesToCopyList "MctFiles", szSrcDir$, szDir$
  690.     IF szDir$ = szWinDir$ THEN
  691.     AddSectionFilesToCopyList "BWCCdllFiles", szSrcDir$, MakePath (szWinDir$, "SYSTEM")
  692.     IF fATMFiles% = fTRUE% THEN
  693.         ini$ = MakePath(GetWindowsDir, "ATM.INI")
  694.         szPSpfmFontsPath$ = GetIniKeyString (ini$, "Setup", "PFM_Dir")
  695.         szPSpfbFontsPath$ = GetIniKeyString (ini$, "Setup", "PFB_Dir")
  696.         '' NB! SVBR B¢r sjekke om disse ligger på samme sted som Windows
  697.         AddSectionFilesToCopyList "ATMpfbFiles", szSrcDir$, szPSpfbFontsPath$
  698.         AddSectionFilesToCopyList "ATMpfmFiles", szSrcDir$, szPSpfmFontsPath$
  699. '           RenameFile MakePath(sz
  700.     ELSE
  701.         AddSectionFilesToCopyList "TrueTypeFiles", szSrcDir$, MakePath (szWinDir$, "SYSTEM")
  702.     ENDIF
  703.     ENDIF
  704.  
  705.     ListSym$ = "MGWNeeds"
  706.     i% = GetCopyListCost ("", ListSym$, "")
  707.     cbMGWFiles& = 0
  708.     FOR i% = 1 TO MaxNoOfDisks% STEP 1
  709.     cbMGWFiles&  = cbMGWFiles& + VAL(GetListItem(ListSym$, i%))
  710.     NEXT i%
  711.     cbMGWFiles& = (cbMGWFiles& + 1023) / 1024
  712.  
  713.     IF szDir$ <> szWinDir$ THEN
  714.     ClearCopyList
  715.     AddSectionFilesToCopyList "BWCCdllFiles", szSrcDir$, szWinDir$
  716.     IF fATMFiles% = fTRUE% THEN
  717.         ini$ = MakePath(GetWindowsDir, "ATM.INI")
  718.         szPSpfmFontsPath$ = GetIniKeyString (ini$, "Setup", "PFM_Dir")
  719.         szPSpfbFontsPath$ = GetIniKeyString (ini$, "Setup", "PFB_Dir")
  720.         '' NB! SVBR B¢r sjekke om disse ligger på samme sted som Windows
  721.         AddSectionFilesToCopyList "ATMpfbFiles", szSrcDir$, szPSpfbFontsPath$
  722.         AddSectionFilesToCopyList "ATMpfmFiles", szSrcDir$, szPSpfmFontsPath$
  723.     ELSE
  724.         AddSectionFilesToCopyList "TrueTypeFiles", szSrcDir$, szWinDir$
  725.     ENDIF
  726.  
  727.     ListSym$ = "WindowsNeeds"
  728.     i% = GetCopyListCost ("", ListSym$, "")
  729.     cbWinFiles& = 0
  730.     FOR i% = 1 TO MaxNoOfDisks% STEP 1
  731.         cbWinFiles&  = cbWinFiles& + VAL(GetListItem(ListSym$, i%))
  732.     NEXT i%
  733.     cbWinFiles& = (cbWinFiles& + 1023) / 1024
  734.     ELSE
  735.     cbWinFiles& = 0
  736.     ENDIF
  737.  
  738.     ClearCopyList
  739.     ListSym$ = ""
  740. END SUB
  741.  
  742. '*************************************************************************
  743. '** Routine: GetDriveList
  744. '** Purpose:
  745. '**     
  746. '** Arguments:
  747. '**     none.
  748. '** Returns:
  749. '**     
  750. '*************************************************************************
  751. SUB GetDriveList STATIC
  752.     DriveList$ = "DriveList"
  753.     SetSymbolValue DriveList$, ""
  754.     TmpDriveList$ = "TmpDriveList"
  755.     GetValidDrivesList( TmpDriveList$ )
  756.     iMaxDiskNo% = GetListLength (TmpDriveList$)
  757.     RemovableDriveList$ = "RemovableDriveList"
  758.     GetRemovableDrivesList( RemovableDriveList$ )
  759.     iMaxRemovableDiskNo% = GetListLength (RemovableDriveList$)
  760.     FOR iDiskNo% = 1 TO iMaxDiskNo% STEP 1
  761.     fFound% = fFALSE%
  762.     FOR iRemovableDiskNo% = 1 TO iMaxRemovableDiskNo% STEP 1
  763.         IF GetListItem (TmpDriveList$, iDiskNo%) = GetListItem (RemovableDriveList$, iRemovableDiskNo%) THEN
  764.         fFound% = fTRUE%
  765.         EXIT FOR
  766.         ENDIF
  767.     NEXT iRemovableDiskNo%
  768.     IF fFound% <> 1 THEN
  769.         cbDrive& = GetFreeSpaceForDrive (GetListItem (TmpDriveList$, iDiskNo%) )
  770.         cbDrive& = (cbDrive& + 1023) / 1024
  771. '             AddListItem DriveList$, GetListItem (TmpDriveList$, iDiskNo%) + CHR$(9) + Ltrim$(Str$( cbDrive& )) + szKB
  772.         AddListItem DriveList$, GetListItem (TmpDriveList$, iDiskNo%) + "       " + Ltrim$(Str$( cbDrive& )) + szKB
  773.     ENDIF
  774.     NEXT iDiskNo%
  775. '$IFDEF DEBUG
  776.     i% = DoMsgBox("Liste over stasjoner = " + GetSymbolValue(DriveList$), "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  777. '$ENDIF ''DEBUG
  778.     RemoveSymbol (TmpDriveList$)
  779.     RemoveSymbol (RemovableDriveList$)
  780. END SUB
  781.  
  782. '*************************************************************************
  783. '** Routine: GetInstallPath
  784. '** Purpose:
  785. '**     Query user for installation path.
  786. '** Arguments:
  787. '**     none.
  788. '** Returns:
  789. '**     szDir$
  790. '*************************************************************************
  791. SUB GetInstallPath STATIC
  792. GETPATH:
  793. '$IFDEF DEBUG
  794.     i% = DoMsgBox("Liste over stasjoner = " + GetSymbolValue(DriveList$), "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  795. '$ENDIF ''DEBUG
  796.     SetSymbolValue "ListItemsIn", GetSymbolValue(DriveList$)
  797. '     LOCALHARDDRIVES$ = "LocalHardDrives"
  798. '     GetValidDrivesList( LOCALHARDDRIVES$ )
  799. '     SetSymbolValue "ListItemsIn", GetSymbolValue(LOCALHARDDRIVES$)
  800. '     NB! SVBR
  801. '     SetSymbolValue "ListItemsOut", szDir$
  802.     SetSymbolValue "EditTextIn", szDir$
  803.     SetSymbolValue "EditFocus", "END"
  804. GETPATHL1:
  805.     fError% = fFALSE%
  806. '$IFDEF DEMO
  807.     sz$ = UIStartDlg(CUIDLL$, GETPATHDEMO, "FListEditDlgProc", HELPPATHDEMO, HELPPROC$)
  808. '$ELSE
  809.     sz$ = UIStartDlg(CUIDLL$, GETPATH, "FListEditDlgProc", HELPPATH, HELPPROC$)
  810. '$ENDIF
  811.  
  812.     IF sz$ = "CONTINUE" THEN
  813.     szTDir$ = GetSymbolValue("EditTextOut")
  814.     szTDir$ = Ltrim$(szTDir$)
  815.     szTDir$ = Rtrim$(szTDir$)
  816.  
  817.     IF InStr(1, szTDir$, ":") = fFALSE% THEN
  818.         szTDir$ = Mid$(GetSymbolValue("STF_CWDDIR"), 1, 1) + ":" + szTDir$
  819.     END IF
  820.  
  821.     IF MID$(szTDir$, LEN(szTDir$), 1) = "\" THEN
  822.         fError% = fTRUE%
  823.     END IF
  824.  
  825.     '' NB! SVBR IsDirWriteable does not work propably
  826. '         IF fError% <> fTRUE% AND IsDirWritable(szTDir$) = fFALSE% THEN
  827.     IF fError% <> fTRUE% AND IsDriveValid( MID$(szTDir$, 1, 1) ) = fFALSE% THEN
  828.         fError% = fTRUE%
  829.     END IF
  830.     IF fError% <> fTRUE% AND IsDriveRemovable(szTDir$) <> 0 THEN
  831.         fError% = fTRUE%
  832.     END IF
  833.  
  834.     IF fError% <> fTRUE% AND Exists(szTDir$) THEN
  835.         fError% = fTRUE%
  836.     END IF
  837.  
  838.     IF fError% <> fTRUE% THEN
  839.         i% = 0
  840. GETPATHL2:
  841.         iLastDir% = i%
  842.         i% = INSTR(iLastDir%+1, szTDir$, "\")
  843.         IF i% <> 0 THEN
  844.         GOTO GETPATHL2
  845.         END IF
  846.         IF MID$(szTDir$, iLastDir%, 1) = "\" THEN
  847.         iLastDir% = iLastDir% + 1
  848.         END IF
  849.  
  850.         szLastDir$ = UCASE$(MID$(szTDir$, iLastDir%))
  851.  
  852.         IF szLastDir$ = "PRN" OR szLastDir$ = "AUX" OR szLastDir$ = "CON" THEN
  853.         fError% = fTRUE%
  854.         END IF
  855.  
  856.         IF LEN(szLastDir$) = 4 THEN
  857.         iNum = VAL(MID$(szLastDir$, 4, 1))
  858.         IF iNum >= 1 AND iNum <= 9 THEN
  859.             IF MID$(szLastDir$, 1, 3) = "COM" OR MID$(szLastDir$, 1, 3) = "LPT" THEN
  860.             fError% = fTRUE%
  861.             END IF
  862.         END IF
  863.         END IF
  864.     END IF
  865.  
  866.     IF fError% = fTRUE% THEN
  867.         BadPath
  868.         GOTO GETPATHL1
  869.     END IF
  870.  
  871.     sz$ = CreateInstallPath(szTDir$)
  872.     IF sz$ <> "CONTINUE" THEN
  873.         GOTO GETPATHL1
  874.     END IF
  875.  
  876. '$IFDEF DEMO
  877.     sz$ = UIStartDlg(CUIDLL$, WAITSIZEDEMO, "FModelessDlgProc", 0, "")
  878. '$ELSE
  879.     sz$ = UIStartDlg(CUIDLL$, WAITSIZE, "FModelessDlgProc", 0, "")
  880. '$ENDIF
  881.     szDir$ = szTDir$
  882.     DetermineSizes
  883.     CalcPathSpace
  884.     UIPop 1
  885.  
  886.     END IF
  887.     UIPop 1
  888. END SUB
  889.  
  890. '*************************************************************************
  891. '** Routine: Install
  892. '** Purpose:
  893. '**     Builds the copy list and performs all installation operations.
  894. '** Arguments:
  895. '**     none.
  896. '** Returns:
  897. '**     none.
  898. '*************************************************************************
  899. SUB Install STATIC
  900.     '' Do not check the size of files on diskett
  901. '    i% = SetSizeCheckMode (scmOnIgnore)
  902.  
  903.     CreateDir szDir$, cmoVital
  904.     AddSectionFilesToCopyList "BasisFiles", szSrcDir$, szDir$
  905.     AddSectionFilesToCopyList "MctFiles", szSrcDir$, szDir$
  906.     IF DoesFileExist ( Makepath (szWinDir$, "SYSTEM\BWCC.DLL"), femExists) = fTRUE% THEN
  907. '         IF GetDateOfFile ( Makepath (szWinDir$, "SYSTEM\BWCC.DLL") ) = GetSectionKeyDate ("BWCCdllFiles", "Borland Custom Control") THEN
  908. '             AddSectionFilesToCopyList "BWCCdllFiles", szSrcDir$, MakePath (szWinDir$, "SYSTEM")
  909. '         ELSE
  910. '             InstBWCC% = AskForBWCC()
  911. '             IF InstBWCC%= 1 THEN
  912. '                 AddSectionFilesToCopyList "BWCCdllFiles", szSrcDir$, MakePath (szWinDir$, "SYSTEM")
  913. '             ELSEIF InstBWCC%= -1 THEN
  914. '                 ' Back
  915. '             ENDIF
  916. '         ENDIF
  917.     ELSE
  918.     AddSectionFilesToCopyList "BWCCdllFiles", szSrcDir$, MakePath (szWinDir$, "SYSTEM")
  919.     ENDIF
  920.     IF fATMFiles% = fTRUE% THEN
  921.     ini$ = MakePath(GetWindowsDir, "ATM.INI")
  922.     szPSpfmFontsPath$ = GetIniKeyString (ini$, "Setup", "PFM_Dir")
  923.     AddSectionFilesToCopyList "ATMpfmFiles", szSrcDir$, szPSpfmFontsPath$
  924.     szPSpfbFontsPath$ = GetIniKeyString (ini$, "Setup", "PFB_Dir")
  925.     AddSectionFilesToCopyList "ATMpfbFiles", szSrcDir$, szPSpfbFontsPath$
  926.     ELSE
  927.     AddSectionFilesToCopyList "TrueTypeFiles", szSrcDir$, MakePath (szWinDir$, "SYSTEM")
  928.     ENDIF
  929.     SetRestartDir szWinDir$
  930.     CopyFilesInCopyList
  931.  
  932.     IF fATMFiles% = fTRUE% THEN
  933.     ini$ = MakePath(GetWindowsDir, "ATM.INI")
  934.     CreateIniKeyValue ini$, "Fonts", "Musicator", MakePath( szPSpfmFontsPath$, "mu______.pfm") + "," + MakePath( szPSpfbFontsPath$, "mu______.pfb"), cmoOverwrite
  935.     ELSE
  936.     ini$ = MakePath(GetWindowsDir, "WIN.INI")
  937.     CreateIniKeyValue ini$, "fonts", "Musicator (TrueType)", "MUSICA2.FOT", cmoOverwrite
  938.     ENDIF
  939.  
  940.     CreateProgmanGroup szGroupName$, "", cmoNone
  941.     CreateProgmanItem szGroupName$, "Readme", "Write.exe " + MakePath (szDir$, "README.WRI"), "", cmoOverwrite
  942.     CreateProgmanItem szGroupName$, szProgramName$, MakePath (szDir$, "winmusgs.exe"), "", cmoOverwrite
  943.  
  944. END SUB
  945.  
  946. '*************************************************************************
  947. '** Routine: InsufficientSpace
  948. '** Purpose:
  949. '**     Display TOOBIG dialog
  950. '** Arguments:
  951. '**     none.
  952. '** Returns:
  953. '**     none.
  954. '*************************************************************************
  955. SUB InsufficientSpace STATIC
  956. BADDIR1:
  957. '$IFDEF DEMO
  958.     sz$ = UIStartDlg(CUIDLL$, TOOBIGDEMO, "FInfo0DlgProc", 0, "")
  959. '$ELSE
  960.     sz$ = UIStartDlg(CUIDLL$, TOOBIG, "FInfo0DlgProc", 0, "")
  961. '$ENDIF
  962.     IF sz$ = "REACTIVATE" THEN
  963.     GOTO BADDIR1
  964.     END IF
  965.     UIPop 1
  966. END SUB
  967.  
  968.  
  969. '*************************************************************************
  970. '** Routine: MakePath
  971. '** Purpose:
  972. '**     Appends a file name to the end of a directory path,
  973. '**     inserting a backslash character as needed.
  974. '** Arguments:
  975. '**     szDir$  - full directory path (with optional ending "\")
  976. '**     szFile$ - filename to append to directory
  977. '** Returns:
  978. '**     Resulting fully qualified path name.
  979. '*************************************************************************
  980. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  981.     IF szDir$ = "" THEN
  982.     MakePath = szFile$
  983.     ELSEIF szFile$ = "" THEN
  984.     MakePath = szDir$
  985.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  986.     MakePath = szDir$ + szFile$
  987.     ELSE
  988.     MakePath = szDir$ + "\" + szFile$
  989.     END IF
  990. END FUNCTION
  991.  
  992.